Temp Patterns

Rename Regions

levels(spp_master_ztemp_seus_buoy[,reg])

[1] "Aleutian Islands"   "Eastern Bering Sea" "Gulf of Mexico"     "Gulf of Alaska"    
[5] "Northeast US"       "Newfoundland"       "Southeast US"       "Scotian Shelf"     
[9] "West Coast US"     

ggplot(data = spp_master_ztemp_seus_buoy, aes(x=year)) +
  geom_point(aes(y = max_sst_temp), col = "red") +
  geom_point(aes(y = seas_sst_temp), col = "slategrey") +
  geom_point(aes(y = min_sst_temp), col = "blue") +
  facet_wrap(~reg, scales = "free") +
  labs(y = expression("Surface Temperature ("*~degree*C*")"), x = "Year") +
  theme_bw() +
  theme(plot.margin = margin(1,1,1,1, "cm"))

ggsave(file = "temp_over_time_surface_seusbuoy.jpg")

Saving 7.29 x 4.51 in image

ggsave(file = "temp_over_time_surface_seusbuoy.eps")

Saving 7.29 x 4.51 in image